(server-kill-buffer): Act only when there is a server process.

diff --git a/lisp/server.el b/lisp/server.el
index 8a548fe0aa92eee38160927dfcbe2fd00c430de3..e827e8843118069b1034add806714745e2ca3a73 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -387,7 +387,8 @@ or nil.  KILLED is t if we killed the BUFFER (because it was a temp file)."
 ;; When a buffer is killed, inform the clients.
 (add-hook 'kill-buffer-hook 'server-kill-buffer)
 (defun server-kill-buffer ()
-  (server-buffer-done (current-buffer) t))
+  (when server-process
+    (server-buffer-done (current-buffer) t)))
 \f
 (defun server-edit (&optional arg)
   "Switch to next server editing buffer; say \"Done\" for current buffer.